home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs59.d81 / krnlprnt.sda / SAMSEQ (.txt) < prev    next >
GEOS ConVerT  |  2009-10-10  |  1KB  |  61 lines
  1. SamSeq
  2. PRG formatted GEOS file V1.0
  3. EPSON FX-80
  4. SAMSEQ
  5. BLASTER'S CONVERTER V2.5
  6. universal.dbm
  7. universal.dbg
  8. Write Image V2.0
  9. geoWrite    V1.1
  10. GEOPROGRAMMER sample file.
  11. .if    Pass1
  12. .include    geosSym    
  13. .include    geosMac
  14. .endif
  15.     .psect
  16. ProgStart:    nop
  17. GetPrinter:    LoadW    r0L,#1
  18.     LoadW    r7,#$7900
  19.     LoadW    r6,PrntFileName
  20.     jsr    GetFile
  21. DoScreen:
  22.     LoadB    row,#0
  23. 5$    lda    row
  24.     sta    a0
  25.     lda    #40
  26.     sta    a1
  27.     ldx    #a0
  28.     ldy    #a1
  29.     jsr    BBMult
  30.     AddVW    #COLOR_MATRIX,a0
  31.     ldy    #0
  32. 10$    lda    (a0),y
  33.     beq    20$
  34.     cmp    #27
  35.     bcs    110$
  36.     adc    #64+32
  37.     bra    19$
  38. 110$    cmp    #32
  39.     bcc    120$
  40.     cmp    #64
  41.     bcs    15$
  42.     bcc    19$
  43. 15$    nop
  44. 19$    sta    MyBuffer,y
  45. 120$    iny
  46.     cpy #40
  47.     bne    10$
  48. 20$    lda    #CR
  49.     sta    MyBuffer,y
  50.     lda    #0
  51.     sta    MyBuffer,y
  52.     LoadW    r0,MyBuffer
  53.     LoadW    r1,$5000
  54.     jsr    PrintASCII
  55.     inc    row
  56.     lda    row
  57.     cmp    #25
  58.     bne    5$    
  59. row:    .byte 0
  60. MyBuffer:    .block 50
  61.